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^6/ 

if (VB+R)->offset<0 then 
Temp=(VB+R)->offset; 

(VB+R)->offset+=(VB+R+(VB+R)->offset)->offset- 
for(i=l ;i<(VB+R)->offset;i++) 
(VB+R+i)-> 0 ffset-=Temp; 
endif 

if(VB->offset<0) 

(VB+VB->ofFset)->offset=-VB->offset; 
endif 
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